home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / SourceCode / Tutorial / Cookbook / 13.pie_slice / PieView.m < prev    next >
Text File  |  1995-06-12  |  797b  |  50 lines
  1.  
  2. /* Generated by Interface Builder */
  3.  
  4. #import "PieView.h"
  5. #import <dpsclient/wraps.h>
  6. #import <appkit/Font.h>
  7. #import <appkit/Control.h>
  8. #import "slice.h"
  9. #import "math.h"
  10.  
  11. @implementation PieView
  12.  
  13. +newFrame:(const NXRect *)tF
  14. {
  15.    self = [super newFrame:tF];
  16.    [self translate:bounds.size.width/2.0 :bounds.size.height/2.0];
  17.    myLabel = "";
  18.    return self;
  19. }
  20.  
  21. - getSlider:sender
  22. {
  23.     myFloat = [sender floatValue];
  24.     [self display];
  25.     return self;
  26. }
  27.  
  28. - setMyText:anObject
  29. {
  30.     myText = anObject;
  31.     return self;
  32. }
  33.  
  34. - getLabel:sender
  35. {
  36.     myLabel = [myText stringValue];
  37.     [self display];
  38.     return self;
  39. }
  40.  
  41. - drawSelf:(NXRect*)r :(int)c
  42. {
  43.     NXEraseRect(&bounds);
  44.     PSselectfont("Helvetica", 16.0);
  45.     drawSlice(0.5, 80.0, 0.0, myFloat, 20.0, myLabel);
  46.     return self;
  47. }
  48.  
  49. @end
  50.